Option Explicit
Sub A_Sample002()
    Dim myRng As Range
    On Error Resume Next
        Set myRng = ActiveCell
    On Error GoTo 0
    If myRng Is Nothing Then
        MsgBox "LkoActiveCell"
    Else
        MsgBox myRng.Address
    End If
    Set myRng = Nothing			'
End Sub
